module Main (main) where

import Neural.FeedForward
import Neural.Neural
import System.Random
import Data.List
import Data.Graph.Inductive.Graphviz

mkPatterns rand = zip inputs outputs
                  where
                  inputs = map sort $ take 100 $ map (take 5) $ iterate (drop 5) rand
                  outputs = map (map tanh) inputs

{- main testing function to create train an introspect network -}
main = do gen<-getStdGen
          let rand = randomRs (-1.0, 1.0) gen :: [Double]
          let net = makeNet rand 5 5 2 5
          writeFile "net.dot" $ graphviz' net

